home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh27c.d64
/
init 2001
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
4KB
|
97 lines
0 REM "INIT.GR2001"-> ERZEUGT 'GR2001'
1 REM *******************************
2 REM >> ZUERST MIT MSE EINGEBEN : **
3 REM ** 1. 'GR2001TOKEN.90F0' UND **
4 REM ** 2. 'GR2001.OBJ' **
5 REM ** UND AUF DISK SICHERN **
6 REM *******************************
7 REM >> DANN : **
8 REM ** 3. 'GRAFIK 2000' LADEN **
9 REM ** 4. POKE43,1:POKE44,64 **
10 REM ** 5. POKE16384,0: ** ** = BASICANFANG HOCHSETZEN **
12 REM ** 6. INSTALLATIONSPRG. **
13 REM ** 'INIT.GR2001' **
14 REM ** EINGEBEN & STARTEN **
15 REM *******************************
16 REM ** 'INIT.GR2001' ===> **
17 REM ** INSTALLATIONSPROGRAMM **
18 REM ** FUER 'GR2001' **
19 REM ** = ERWEITERTES UND **
20 REM ** MODIFIZIERTES **
21 REM ** 'GRAFIK 2000'(F.BRENDEL) **
22 REM **---------------------------**
24 REM ** DR. HEINZ DOMES **
26 REM ** JOSEF MARX STR. 13 **
28 REM ** A - 8043 GRAZ **
29 REM ** OESTERREICH **
30 REM ** TEL:0316-367335 **
31 REM *******************************
32 REM >> HINWEIS :'GR2001' **
33 REM ** WARTET NACH LADEN UND **
34 REM ** STARTEN MIT 'RUN' AUF **
35 REM ** DRUCK VON 'C='TASTE BZW. **
36 REM ** 'SPACE'TASTE UND LADET **
37 REM ** DANN PROGRAMM 'GRA1', **
38 REM ** WELCHES EIN BELIEBIGES **
39 REM ** RUMPFPRG. SEIN KANN MIT **
40 REM ** MENUE ZUM NACHLADEN DES **
41 REM ** GEWUENSCHTEN ARBEITSPRO- **
42 REM ** GRAMMES. **
43 REM >>>MIT 'POKE12481,133: **
44 REM ** 'POKE12482,48' **
45 REM ** AUSSCHALTEN DER **
46 REM ** AUTOBOOT - FUNKTION. **
50 REM *******************************
100 IFA=1THEN900
105 IFA=2THEN1000
304 REM----------------------------->1<----------------------------------------
305 REM-- "BASICZEILE & AUTOBOOT ---
306 [143]--------------------------------
310 [129]M[178]2059[164]2094:[135]P:S[178]S[170]P: :[151]M,P:[130]
320 [139]S[179][177]1968[167][153]"DATA ERROR 1":[128]
350 [153]"1. OK"
400 [131]13,13,30,40,67,41,32,70,46,66,82,69,78,68,69,76,13,13,77,79,68,73,70
405 [131]73,69,68,58,32,68,79,77,69,83,13,13,13
449 [143]--------------------------------
450 [129]M[178]2196[164]2198:[135]P:[151]M,P:[130]
480 [131]76,176,48 :[143] SPRUNG ->$30B0 AUTOBOOTROUTINE:LADET 'GRA1'
490 [151]3111,0: [151]3119,4
491 [143] ^RAHMEN,HINTERGR. ^AKT.FARBCODE :$0C27 :$0C2F
492 [143]--------------------------------
500 :
504 [143]----------------------------->2<----------------------------------------
505 [143]-- "MODIFIZIERTE LOAD ROUTINE -
506 REM-- LADET ABSOLUT NACH $E000 -
507 REM--------------------------------
510 S=0:FORM=3512TO3523:READP:S=S+P: :POKEM,P:NEXT
520 IFS<>1418THENPRINT"DATA ERROR >2":END
550 PRINT"2. OK"
600 DATA169,0,133,185,170,160,224,76,143,158,0,0
700 :
704 REM----------------------------->3<----------------------------------------
705 REM-- "MODIF. BEFEHLSTABELLE ---
706 [143]--------------------------------
710 [139]A[178]0[167]A[178]1:[151]157,128:[147]"GR2001TOKEN.09F0",8,1
717 :
900 :
904 [143]----------------------------->4<----------------------------------------
905 [143]-- "OBJECTCODE ERWEITERUNG ---
906 REM-- LADEN ---
907 REM--------------------------------
910 IFA=1THENA=2:LOAD"GR2001.OBJ",8,1 : REM $2298 - $30E5
920 POKE157,0
1000 :
1004 REM----------------------------->5<---------------------------------------
1005 REM-- "BASICANFANG & PRG ENDE ---
1006 [143]-- ZEIGER SETZEN & SAVE ---
1007 [143]-------------------------------
1020 [143]'GR2001' ENDE $30E5=12517 ** XL=229:XH=48
1070 [143]----------------------------->6<---------------------------------------
1071 [143]--- PSEUDODIREKTMODUS: ---
1072 [143]-------------------------------
1130 [153]"LOADP(null)43,1:P(null)44,8:P(null)45,229:P(null)47,229:P(null)49,229:P(null)46,48:P(null)48,48:P(null)50,48"
1140 [151]2049,48:[151]2050,8
1150 [153]"SATN"[199](34)"GR2001"[199](34)",8"
1160 [151]631,19:[129]I[178]1[164]3:[151]631[170]I,13:[130]:[151]198,5:[128]
2000 [143]-----------------------------------------------------------------------